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EDTSFIOHNDLR = file 1/0 condition handler 18-sep-1984 00:25:48 VAX-11 Bliss-32 V4 «0-748 Page 1 EDT 
14-Sep-1984 12:23:08 DISKSVMSMASTER:CEDT.SRCJFIOHNDLR.B32;1 = (1) | v04 
1 © XTITLE "EDTSFIOHNDLR = file 1/0 condition handler’ 
§ MODULE EDTSFIOHNDLR ( ' file 1/0 condition poandi ge 
DENT = 'v04-000' ' File: FIOHNDLR.B32 Edit: JBS1016 
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004 
44 BEGIN 
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00 ‘e 
00 'e COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 


'e DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
'* ALL RIGHTS RESERVED 


is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
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is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
K Coppokat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
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!* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


OOCCOCCOOCOCOCoCoOo 


ia 
® 
* 
® 
® 
a 
* 
& 
. *® ; 
is TRANSFERRED. * | 
* 
® 
* 
*® 
* 
* 
* 
* 
* 
* 


MARPRELESESSESESE LEE EEE ESE TEESE REESE RSE RRR S SECA E EERE SEER SEER ERS EES SY 
' 


++ 


FACILITY: EDT -- The DEC Standard Editor 
ABSTRACT: 
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' 
BRS Condition handler enabled for ali file 1/0 
ai ENVIRONMENT: Runs on Vax/Vms 
re : AUTHOR: Shelly T. Solomon, CREATION DATE: 04-Jan-1982 
0068 : MODIFIED BY: 
0044 : 1-00) - Original. STS 04-Jan-1982 
0045 ! 1- ; - Fixed command file error. STS 14-Jan-1982 
00466 ! 1-005 = Catch open errors. STS 25-Feb-1982 
047 ' 1-004 = Add literals for callablre parameters. STS 08-Mar-1982 
04 : 13h - Change EDTS$$G_CMD to EDTS$V_OPTIONS. JBS 18-Mar-1982 | ; 
004 ‘ I- B6 - If we unwind, make sure there is a bad status code in RO, JBS 26-mar-1982 ; 
0050 ! 1-007 - Revise offsets into the signal args to reflect the new signaling 
b083 : in FILEIO -= the RMS STS is now always in the fourth longword. JBS 29-Mar-1982 
O3¢ ' 1-008 - Put in lots more error checking. JBS 29-Mar-198 
be ' 1-009 - Catch read and write errors and unwind. STS 14-Jul-1982 
054 ' 1-010 = Set abort write flag if error on get. STS Sahu 190s 
055 ' 1-011 = Make use of bit masks for options word. 33 17- ugss 82 
Be$ ! 1- 1 - Fix up references to EpTSH. symbols, JBS s~Ayge 96¢ 
05 ! 1-015 = Don't alter returned RO when unwinding. JBS 25-Feb-1983 
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- If we resignal, arrange to coeur he nee 880, if we are continued. JBS 22-Mar-1983 
= Remove some unreachable code. 3- 
- Improve the appearance of the let ine. JBS Fee yun=1983 
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dD 1 
EDTSFIOHNDLR = file 1/0 condition handler Je~se0n 1386 00:3: 
Declarations 14-Sep-1984 12: 
063 1 XSBITL ‘Declarations’ 
064 1! 
Fi i TABLE OF CONTENTS: 
067 1 
307 ! REQUIRE ‘EDTSRC: TRAROUNAM'; 
5 3 1 FORWARD ROUTINE 
509 1 EDTSSF IOHNDLR; 
510 1 
13 INCLUDE FILES 
318 | i 
514 1 
0515 1 REQUIRE ‘EDTSRC:EDTREQ'; 
0650 1 
0651 1 REQUIRE ‘EDTSRC:SYSSYM'; 
0681 1 
0682 1! 
068 1 ! MACROS: 
0684 1! 
0685 1! NONE 
0686 1! 
0687 1 ! EQUATED SYMBOLS: 
0688 1! 
0689 1! NONE 
0690 1! 
0691 1 ! FIELDS: 
0692 1! 
06935 1! NONE 
0694 1! 
0695 1 ! OWN STORAGE: 
0696 1! 
0697 1! in the routine 
0698 1! 
0699 1 ! EXTERNAL REFERENCES: 
0700 1! 
0701 in the routine 
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HNDLR = file 1/0 condition handler 1h-sep-19 4 90:33:83 VA 
OHNDLR = condition handler for file 1/0 14-Sep-1984 12:23:08 DI 


ZSBITL ‘EDTSSFIOANDLR - condition handler for file 1/0' 


GLOBAL ROUTINE EDTSSFIOHNDLR ( ! Condition handler for file 1/0 
$1G, ! Signal arguments 
MECH, ' Mechanism arguments 
— ! Enable arguments 
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i FUNCTIONAL DESCRIPTION: 


This is the condition handler for file 1/0. It intercepts 

the non-fatal conditions, such as file not found, and unwinds 

to the caller of EDTSS$SCALLFIO. Errors not recognized are 

resignaled to the caller to EDTSEDIT. Just in case that caller 
has a handler which does a continue, arrange to reset and rebuild 
the screen if the screen updater regains control, and stop the 


working message so it won't interfere with whatever the user 
may have in mind. 


FORMAL PARAMETERS: 
Usual for condition handlers. 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
aha 
EDTS$$G_SCR_CHGD 
COMPLETION STATUS: 
As usual for condition handlers 
SIDE EFFECTS: 


= error was ‘file not found" 
= abort the current WRITE or EXIT operation. 
= reset and rebuild screen on continue 


moo 


a a ee a ce a el ee ee a ee cd ee lh ce ee a ee ed ee ed 
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SS SS SS SS SS SS SSS SNS NS SSS SNS SNS NN NN NS 
PUPP PPI BS BB BE EE BE AWW III inonononononony 


NONE | 
BEGIN 
EXTERNAL ROUTINE 

EDTSSSTOP_WKINGMSG : NOVALUE; ! Stop the WORKING message 
EXTERNAL 

EDT$$G_ABT_WRITE, 

EDTS$A_10_FNAM, 

EDT$$G_10_STS, 

EDT$$G_10 STV 

EDTS$$G_1OF1_NEND, 

EDT$$G_SCR_REBUILD; 
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EDTSF IOHNDLR EDTSFIOHNDLR = file 1/0 condition handler 16-Sep-1984 00:25:45 VAX=11 Bliss-32 V4.0-74 Page 5. 
‘fbas00 EDTSSFIOHNDLR = condition handler for file 1/0 14- aa 99:33 58 DISKSVMSMASTERSLEDT SRCSFIOHNDLR.B3204° (3). 
is; 161 760 wale 1} LITERAL ; 
‘E16 ? EDTS$K_COMMAND FILE, : 
: 16 76 EDTSK_INPUT FILE, ‘ 
; 164 76 EDTSK_INCLUDE FILE, ‘ 
ls 165 764 EDTSK_WRITE_FILE : 
E166 765 EDT$K-OUTPUT_F ILE, 
$16 76 EDTSK "PUT, | : 
i; 168 076 EDTSK_GET, | ‘ 
> 169 0768 EDT$K-OPEN_INPUT ; 
$170 076 EDTS$K-OPEN-OUTPUT _NOSEQ, : 
Fete 0770 EDT$K-OPEN~OUTPUT—SEQ; : 
3 178 Ore MAP ; 
3 (124 77 SIG : REF VECTOR ; 
; 175 0774 MECH : REF VECTOR, : 
> (176 0775 ENBL : REF VECTOR; é 
: 177 0776 : 
(; (178 0777 BIND : 
; 179 0778 FCODE = .ENBL £2) | 
: 180 0779 RET VALUE = MECH [3], : 
; (181 0780 STREAM = .ENBL (1); : 
; 18 0781 ; 
; Ores LOCAL : 
: «(186 078 STATUS; : 
: #185 0784 : 
; 186 0785 IF ((,.S1G CO] EQL 1) AND (.SIG C1] EQL SS$_UNWIND)) | ; 
; «187 0786 ¢ H : 
; «4188 0787 BEGIN : 
; #4189 0788 3 !+ : 
: 190 0789 ! We are unwinding. | : 
; «191 0790 te : 
; 198 0791 RETURN (SS$_CONTINUE); ; 
3 i B88 END; : 
: 194 079 | 
; 0794 IF ((.S1G CO) NEQ 7) OR (.SIG C2] NEQ 1)) ; 
; «4196 0795 : 
s 997 0796 BEGIN . 
: 198 0797 3 !+ ; ; 
; 199 0798 : If we are continued, reset and rebuild the screen. There is no telling : 
; soe 44 : what a user might do in his own handler before continuing us. : 
; $08 Bas ; EDT$$G_SCR_REBUILD = 2; : 
: . e 
: 204 080 ! Also, stop the working message, so it won't interfere with whatever the | 3 
: 205 0804 ! user may have in mind. : 
; 206 0805 te ; 
3; 207 0806 EDTSSSTOP_WKINGMSG (); : 
: 208 0807 RETURN (SS$_RESIGNAL) ; ; 
13 209 0808 END; ; 
i; 210 0809 : 
; eit Baty '¢ : 
: \¢ 0811 ! This is probably a signal from the file I/0 routine. 3 
; i pate ! Set up the message vector for the call to EDT$$I0_ERRMSG : 
; 315 pate :_and save the filename signalled with | : 
; 16 0815 EDT$$G_IO_STS = .SIG ¢]i ‘ 
3 a 0816 EDT$$G_IO_STv = .SIG (5); ‘ 
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seen 


FIOHNDLR = file 9 condition hand} 
$Fl rs) 
EDTSSA_IO_FNAM = .SIG (3); 
SELECTONE .STREAM OF 

SET 


at 
Ooo 


CEDTSK_COMMAND _FILE] : 
BEGIN 


ft 4-816 C4] EQL RMSS_FNF) ' File not found 


BEGIN 

the, ior NFND = 1; ! set file not found flag 

SETUN ! everything 0.K., continue (caller will print message) 
RETURN ‘Ss$_ CONTINUE); 


ELSE 


Pononofenononofononononononononofrenenofnoneneferoerns 


B&F NWA AAW WARP 
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4 
3 
4 
4 
4 
4 
4 
¢ 
Not ‘file not found’, resignal the error. 
: 1s BEGIN 
4 ! If we are continued, reset and rebuild the screen. There is no telling 
O80 ? _ what a user might do in his own handler before continuing us. 
0841 4 EDT$$G_SCR_REBUILD = 2; 
24 0842 4 !+ 
24 0843 4 ! Also, arep the apt he message, so it won't interfere with whatever the 
24 0844 4 ! user may have in mind. 
24 0845 4 !- 
24 0846 4 EDTSSSTOP_WKINGMSG (); 
24 0847 4 RETURN (SS$_RESIGNAL) ; 
24 0848 3 END; 
sey 0849 3 
251 0850 § END; 
$26 0851 
25 bas § CEDTSK_INPUT_FILE]J : 
254 085 BEGIN 
255 0854 3 
256 0855 4 IF (.SI1G C4] EQL RMSS_FNF) 
257 0856 3 THEN 
258 0857 4 BEGIN 
259 0858 4 ED TS86 IOFI_NFND = 1; ! set file not found flag 
260 0859 4 SETUNWIND (J; i everything 0.K., continue 
61 Ba09 & RETURN (SSS. CONTINUE) ; 
o¢ 0861 4 END 
6 pe6¢ ; ELSE 
64 086 
65 0864 4 IF (.FCODE EQL EDT$K_GET) 
66 0865 3 THEN 
67 0866 4 EGIN 
68 0867 4 epress 4 WRITE = 1; 
269 0868 4 SETUN 
70 0869 4 RETURN ss. CONTINUE) ; 
71 0870 4 N 
% + ta 3 ELSE 
7 B78 4 BEGIN 
274 0873 4 !+ 
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EDT SF JQMOLR EDTSFIOHNDLR = file 1/0 condition bend lor 16-Sep-1 oR 99: $362 VAX-11 Bliss-32 V4.0-74 7 
vO4- EDTSSFIOHNDLR = condition handler for file 1/0 14-Sep-1984 DISKSVMSMASTER:CEDT.SRCJF IOHNDLR. B32" 19 * (3), 
; @r 0874 4 ! If we are continued, reset and rebuild the screen. There is no telling : 
3 f 0 Ne ? ‘ what @ user might do in his own handler before continuing us. ‘ 
: A 9 rt ? me EDTS$G_SCR_REBUILD = 2; ' 
; 280 $79 4 ! Also, etep the pt be message, so it won't interfere with whatever the : 
: 3 Bee ? } user may have in mind : 
; He ett 4 EDTSSSTOP_WKINGMSG (); ' ; 
3; 284 0883 4 RETURN (SS$_RESIGNAL) ; 3 
. ee: : ov 
; 8 O88¢ END; $ 
; 288 088 : 
; 289 0888 CEDTSK_INCLUDE_FILE, EDTSK_WRITE_FILE, EDTS$K_OUTPUT_FILE] : : 
: 290 0889 BEGIN : 
; ev 0890 '¢ : 
H $3 Bae. Any error opening any of the above files is not considered fatal. : 
; 294 089 : : 
; 295 0894 4 IF ((.FCODE EQL EDTSK_OPEN_INPUT) OR ! ; 
; 296 0895 4 (.FCODE EQL EDT$K_OPEN_OUTPUT_NOSEQ) OR ! : 
, 2v7 0896 4 -FCODE EQL EDT$K_OPEN_OUTPUT_SEQ)) : 
; 298 0897 3 THEN : 
; $30 0898 4 BEGIN $ 
; we 0899 4 : 
; WW) 0900 4: "it the error is ‘‘file not found’’ (only possible with INCLUDE) then ; 
5 308 0901 4 } _give a more-specific message. | ‘ 
; 304 0903 4 | : 
, Fos 0904 4 IF (.S1G [4] EQL RMS$_FNF) THEN EDTS$$G_IOFI_NFND = 1; : 
: 306 0905 4 : 
; for 0906 4 SETUNWIND (); 
; 308 0907 4 RETURN (SS$_CONTINUE); 
; 309 0908 4 END 
; 310 0909 3 ELSE 
3s 6ST 0910 3 
s sie 091 4 IF ((.FCODE EQL EDTSK_PUT) OR (.FCODE EQL EDTSK_GET)) 
; 315 0912 3 THEN 
; «4314 0913 4 BEGIN 
s 6B 0914 4 EDT$$G_ABT_WRITE = 1; 
: 318 0915 4 SETUNWIND 7); 
: 317 0916 4 RETURN (SS$_CONTINUE); | 
: $18 0917 4 ND 
; «#43519 0918 3 ELSE 
: 320 919 4 BEGIN 
: 35; 350 4 !+ 
; $$ 921 4 | If we are continued, reset and rebuild the screen. There is no telling 
; $2 0395 ? i. what a user might do in his own handler before continuing us. | 
; $2 03 : ? = EDT$$G_SCR_REBUILD = 2; | 
; $$ $9 § 4 ! Also, atep the jwork ing message, so it won't interfere with whatever the 
: 29 03 ? user may have in mind. 
: 0 9 § 4 EDTSSSTOP_WKINGMSG (); 
3; 351 0930 4 RETURN (SS$_RESIGNAL); 


ee 
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| EDTSF LOHNDLR EDTSFIOHNDLR = file 1/0 condition handler 1-5 Sep 4 VAX=-11 Bliss-32 V 8 
¥ba-000 EDTSSFIOHNDLR - cond ten handler for file 1/0 14-Sep 1386 99: $3568 DISKSVMSMASTER: aa 1 °SRCSF LOHNDLR. B321 * (3)| V04" 
ls 931 END; : 
3 § 9 
E : : § END; | 

i 336 0935 COTHERWISED 

Ooh 2 48 rg | 

3 9 83 8 i If we are continued, reset and rebuild the screen. There is no telling 

: m4 a4 94 a what a user might do in his own handler before continuing us. 

; 4@ O71 3 EDT$$G_SCR_REBUILD = 2; | 

; $eé $908 i Also, otep the yt message, so it won't interfere with whatever the 

3 rt B3ee i _user may have in mind. 

; 347 0946 EDTSSSTOP_WKINGMSG (); 

: 48 0947 RETURN (SS$_RESIGNAL); 

: 349 0948 END; 

; 350 0949 TES; 

; we 0950 2 

3; 3a 0951 


-TITLE EDTSFIOHNDLR EDTSFIOHNDLR - file 1/0 condition 
er 
IDENT \V04-000\ 


| 

} 

1 END; ! of routine EDTS$FIOHNDLR | 
| 

EDTS$STOP a 5 7 | 


EDTS$G_ ABT WRITE 
-EXTRN EDTS$A_I0_ ENAR. EDT$$G_I0_STS 
-EXTRN EDT$$G_IO-STV, EDTS$G_YOFT_NFND 
-EXTRN EDT$$G~SCR_REBUILD 
~EXTRN EDTSK_COMMAND _FIL 
~EXTRN EDTSK_INPUT FILE 
-EXTRN EDTSK_INCLUBE_FILE 
~EXTRN EDTSK_WRITE_FILE 
-EXTRN EDTSK_OUTPUT_FILE 
-EXTRN EDTSK_PUT, EBTSK_GET 
~EXTRN EDTSK_OPEN. INPUT 
-EXTRN EDTS$K_OPEN_OUTPUT_NOSEQ 
-EXTRN EDTSKIOPEN_OUTPUT_SEQ 


-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 
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001¢ 00000 .ENTRY EDTSS$FIOHNDLR, Save R2,R3,R4 : 0705 
54 000000006 8F DO 90002 MOVL  #EDTS GET, vA F 
53 0C AC 00 0000 MOVL —ENBL, : 0778 
52 04 AC DO 0000D MOVL SIG > 0785 
01 62 D1 00011 CMPL (R25, #1 : 
0D 12 00014 BNEG ~=s«C1S : 
00000920 = &F 04 A2 D1 0016 CMPL  4(R2), #2336 : | 
0 1 1 BNEO I$ : 
00c2 31 000 BRW 13$ : | 
07 6 D1 00023 1$ CMPL  (R2), #7 : 0794 | 
| 1 00 6 BNEQ 6$ : | 
01 08 A2 01 000 CMPL  8(R2), #1 : 
6C 12 0002¢ BNEQ 6$ : 


EDTSFIOHNDLR = EDTS 
|¥O4=000 EDTS 


; Routine Size: 253 
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FIOHNDLR = file 
$i JOHNDLR = cond 


bytes, 


SSE 


000000006 
00018292 


000000006 
00018292 
000000006 


000000006 
000000006 
000000006 


000000006 
000000006 
000000006 
00018292 


000000006 
000000006 
000000006 


000000006 
000000006 
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50 
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1 
/0 1 
D 
3 tus 
D E 
B His 
1 
ee 
12 B 
3 Hi? 
i 
i 
DO 0007 
11 0079 
D1 00078 
11 0007F 
D1 00081 
13 00088 
D1 QO08A 
13 00091 
D1 00093 
12 QOO9A 
DO 0009C 
D1 OO0A0 
13 000A? 
D1 OO0A9 
13 00080 
Di 00082 
12 00089 
D1 Babee 
12 000C 
11 000C5 
D1 000C7 
13 QOOCE 
D1 00000 
12 00003 
4 00005 
C 0000C 
FB BR ORE 
DO OO0E 
04 QO0E8 
He 
SB 
04 OO0FC 
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000 
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wn ww 


uw 
wr w# 


NO 
PAM 


9$: 


RBBVBR BBi BD DW" — OVOVWONDV @ - DNDN @ — SB FMT ST CO 


, WEDTSK_INPUT_FILE 
(R2), #98962 

g, EDTSSG_1OF1_NFND 
(R3), R4 
w WEDTSK_INCLUDE_F ILE 
, WEDTSK_WRITE_FILE 
WEDTS$K_OUTPUT_FILE 


R3), RO 
#EDTSK_OPEN_INPUT 


, #EDTSK_OPEN_OUTPUT_NOSEQ 
, WEDTSK_OPEN_OUTPUT_SEQ 
R2), #98962 


#EDTSK_PUT 
DT$$G_ABT_WRITE 
SSUNWIND 


Y 
0 

DT$$G_SCR_REBUILD 
DTS$STOP_OKINGHSG 
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(R2), EDT$$G_10_STS 0815 
(Rd), EDT$$G_10-STV 816 
(Ro), EDT$$A~10-FNAM 81 
(R3), RO 819 
, WEOTSK_COMMAND_F ILE 0822 
(R2), #98962 
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ms 
r $ NDLR EDTSFIOHNDLR - file 1/0 condition handler Sep-19 VAX-11 Bliss-32 V4.0-74 Page 10 
@ *b00" EDTSSFIOHNDLR = condition handler for file 1/0 2-8 Sep 71982 99: 33:08 DISKSVMSMASTER: CEDT.SRCJF IOHNDLR.B32;1 79 (4) 
i 337 0385 } END ! of module EDTSFIOHNDLR 
3 8 956 0 ELUDOM 
3 PSECT SUMMARY 
: Name Bytes Attributes 
: _EDTSCODE 253 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
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Library Statistics 


SR eves le ee ee a Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 
: _$255$DUA28:CEDT. SRCIEDT L325 377 0 0 40 00:00.2 
> ~$255$DUA28:CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 
; ~=$255$DUA28: PEVSL IBISTARLET 13901 9776 4 0 581 00:04.0 
: Fp eee a? SUE gE ESA AT SAE BE P/CPTRELEONRE IL SOME LOS F SOL ASE IRE T EONS MSRC$:F }OHNDLR.B32/UPDATE=(ENHS:F IOH 
; Sizes 253 code + 0 data bytes 
un Time :23.1 


: etd T tee: 00:30.9 
3 Lines/CPU Min: $ 6 

3 Lexemes/CPU-Min: 

; Memory Used: 123 pages 
; Compication Complete 
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COMMAND QUALIFIERS 


0133 AH-BT13A | | T CORPORATION 
: VAX/VMS_V4.0 | PROPRIETARY 


0134 AH-BT13A-SE IG. PMENT CORPORATION 
V135 vax7vMS v4.0 AND PROPRIETARY 


